home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 9 / The PC-SIG Library on CD ROM - Ninth Edition.iso / 101_200 / DISK0112 / DISK0112.ZIP / PC-TAMP2.153 < prev    next >
Text File  |  1984-06-14  |  2KB  |  53 lines
  1.      REM --- T A M P E R      P R O O F I N G  ------
  2.      REM
  3.      REM     Compile with BASCOM/O/T/N  options
  4.      REM
  5.      FL$="PC-TAMP1.EXE"
  6.      PRINT " Tamper Proof check of Anti-tamper system    PC-TAMP2 V1.53"
  7.      PRINT " ": PRINT " "
  8.      PRINT " (5) Verify 'PC-TAMP1.EXE'"
  9.      PRINT " ": PRINT " "
  10.      SUM1# = 152966668# : SUM3# = 137638331#
  11.      SUM2# = 0# : SUM4# = 0
  12.      OPEN "I",1,FL$
  13.      CLOSE 1
  14.      OPEN "R",1,FL$,128
  15.      SZ! = LOF(1)
  16.      SIZE% = SZ! / 128!
  17.      IF SZ! <> (SIZE% * 128!) THEN SIZE% = SIZE% + 1
  18.      FIELD #1, 128 AS SECTOR$
  19.      PRINT " "
  20.      COLOR 7+16,0
  21.      PRINT " * * *  R U N N I N G  * * *"
  22.      COLOR 7,0
  23.      FOR J%=1 TO SIZE%
  24.          GET 1, J%
  25.          FOR K%=1 TO 128
  26.              C%=ASC(MID$(SECTOR$,K%,1))
  27.              SUM2# = SUM2# + (C% * J%)
  28.              SUM4# = SUM4# + (C% * K%)
  29.          NEXT K%
  30.      NEXT J%
  31.      PRINT " ": PRINT " ": PRINT " "
  32.      CLOSE 1
  33.      PRINT " Checked ";(SIZE% * 128!);" bytes of file: "; FL$
  34.      PRINT " File ";FL$;"  Security Check Sum1 Calculated ="; SUM2#
  35.      PRINT " File ";FL$;"  Security Check Sum1 should be  ="; SUM1#
  36.      PRINT " File ";FL$;"  Security Check Sum2 Calculated ="; SUM4#
  37.      PRINT " File ";FL$;"  Security Check Sum2 should be  ="; SUM3#
  38.      PRINT " "
  39.      IF SUM4# <> SUM3# THEN 1370
  40.      IF SUM2# = SUM1#  THEN 1500
  41. 1370 PRINT " "
  42.      PRINT "======================================================="
  43.      PRINT "S E C U R I T Y       A L E R T   /   V I O L A T I O N"
  44.      PRINT "======================================================="
  45.      PRINT " "
  46.      PRINT FL$; " HAS BEEN ALTERED OR MODIFIED AND PROGRAM MAY BE INSECURE"
  47.      END
  48. 1500 PRINT " File "; FL$;" <<< Appears A-OK >>>"
  49.      PRINT " ": PRINT " ": PRINT " "
  50.      INPUT " <PAUSE> Press ENTER to Continue "; FL$
  51.      CHAIN "PC-MENU.EXE"
  52.      END
  53.